perm filename X.MAC[1,3] blob sn#072630 filedate 1973-11-19 generic text, type T, neo UTF8

A=1

GO:	MOVE	A,[XWD -1,XLOG]
	LOGIN	A,
	EXIT
XLOG:	SIXBIT	/ACTREG/

	END	GO